home *** CD-ROM | disk | FTP | other *** search
/ Business Shareware / Business Shareware.iso / start / gfxapps / grphca23 / bessel.plt < prev    next >
Encoding:
Text File  |  1993-04-16  |  517 b   |  34 lines

  1. [ bessel.plt
  2.  
  3. paper size 11 by 8.5
  4. map x -30 20
  5. format x 0
  6. draw x
  7. xlabel 'x'
  8. color lred
  9. plot besj0(x)*0.12e1 con, (x**besj0(x))-2.5 add
  10. color green
  11. draw y
  12. ylabel 'besj0(x)*0.12e1 con, (x**besj0(x))-2.5 add'
  13.  
  14. font 3
  15. char size 0.2 slant 10
  16. title 'Bessel Functions I'
  17. pause 3
  18.  
  19. clear
  20. samples 400
  21. map x -10 10
  22. format x 0
  23. draw x
  24. xlabel 'x'
  25. color lred
  26. plot real(sin(x)**besj0(x))
  27. color green
  28. draw y
  29. ylabel 'real(sin(x)**besj0(x))'
  30.  
  31. font 3
  32. char size 0.2 slant 10
  33. title 'Bessel Functions II'
  34.